home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesgraf5.s < prev    next >
Text File  |  1989-04-06  |  1KB  |  41 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Graphics Library routines 5 of 5.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; graf_watchbox
  18. ;-------------------------------------------------------------------------
  19.  
  20. _graf_watchbox::
  21.           .cargs    #8,.ptree.l,.obj,.instate,.outstate
  22.           link      a6,#-2
  23.           
  24.           move.w    .outstate(a6),-(sp) ; D*mn AES defines a reserved parm
  25.           move.w    .instate(a6),-(sp)  ; for this call, as intin[0], so we
  26.           move.w    .obj(a6),-(sp)      ; have to build a new intin instead
  27.           clr.w     -(sp)               ; of pointing to parms on entry.
  28.  
  29.           AControl  75,4,1,1
  30.           moveq.l   #-2,d2              ;  = intout
  31.           move.l    sp,a1               ; -> intin (we just built it)
  32.           lea       .ptree(a6),a0       ; -> addrin
  33.           ACall     RET2HERE
  34.  
  35.           move.w    -2(a6),d0
  36.           unlk      a6
  37.           rts
  38.  
  39. ;         end of code
  40.  
  41.